home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2posx10.zoo / m2posix.10 / src / ansic.ipp < prev    next >
Encoding:
Modula Implementation  |  1993-10-06  |  1.6 KB  |  65 lines
  1. IMPLEMENTATION MODULE ANSIC;
  2. __IMP_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. #if ISO_proc_const
  13. (*empty*)
  14. #else
  15.  
  16. IMPORT cmdline,ctype,cstr,lib,MEMBLK;
  17.  
  18. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  19.  
  20. BEGIN (* ANSIC *)
  21.   isalnum  := ctype.isalnum;
  22.   isalpha  := ctype.isalpha;
  23.   iscntrl  := ctype.iscntrl;
  24.   isdigit  := ctype.isdigit;
  25.   isgraph  := ctype.isgraph;
  26.   islower  := ctype.islower;
  27.   isprint  := ctype.isprint;
  28.   ispunct  := ctype.ispunct;
  29.   isspace  := ctype.isspace;
  30.   isupper  := ctype.isupper;
  31.   isxdigit := ctype.isxdigit;
  32.   tolower  := ctype.tolower;
  33.   toupper  := ctype.toupper;
  34.  
  35.   strlen   := cstr.strlen;
  36.   strcpy   := cstr.strcpy;
  37.   strncpy  := cstr.strncpy;
  38.   strcat   := cstr.strcat;
  39.   strncat  := cstr.strncat;
  40.   strcmp   := cstr.strcmp;
  41.   strncmp  := cstr.strncmp;
  42.   strchr   := cstr.strchr;
  43.   strrchr  := cstr.strrchr;
  44.   strstr   := cstr.strstr;
  45.   strpbrk  := cstr.strpbrk;
  46.   strerror := cstr.strerror;
  47.  
  48.   main     := cmdline.main;
  49.   getenv   := cmdline.getenv;
  50.  
  51.   strtol   := lib.strtol;
  52.   strtoul  := lib.strtoul;
  53.   bsearch  := lib.bsearch;
  54.   qsort    := lib.qsort;
  55.   rand     := lib.rand;
  56.   srand    := lib.srand;
  57.  
  58.   memmove  := MEMBLK.memmove;
  59.   memcpy   := MEMBLK.memmove; (* kein Schreibfehler *)
  60.   memset   := MEMBLK.memset;
  61.   memchr   := MEMBLK.memchr;
  62.   memcmp   := MEMBLK.memcmp;
  63. #endif
  64. END ANSIC.
  65.